*
* Simple chat test program.
* End input with X to exit
*
TMP = OPDATA () && Get Opt Data
TMP1 = AT ("/C", TMP) && See if it is CONTINUE or not
IF TMP1 <> 0 && It is!
DO UC_RET && Get us back to normal
ELSE
?? "Use X to exit!"
?
ENDIF
A = 0
?? "Command: "
DO WHILE A = 0
A = INKEY (1) && Get a character
DO CASE
CASE A = 0
DO UC_RECV WITH "/E:4 /P1:TDBS /S:200,'test /q &"+"& /C'" && get any pending input
CASE A = ASC("X") .OR. A = ASC("x")
WAIT "Finished with chat test. Press a key to continue..."
DOTBBS TYPE 203 OPTDATA "/D,,'At menu'"
OTHERWISE
B = CHR (A)
?? CHR (A)
DO WHILE A <> 13
A = INKEY (0)
?? CHR (A)
IF A <> 13
B = B + CHR(A)
ENDIF
ENDDO
ENDCASE
ENDDO
DO UC_SEND WITH B, "/E:4 /P1:TDBS /S:200,'test /q &"+"& /C'" && Call UltraChat
SET PROCEDURE TO UCHATAPI && Compile this stuff